supplied-by : off ( addr -- )  0 swap ! ;
